home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
os2
/
srefv112.zip
/
DIRINFO.RXX
< prev
next >
Wrap
Text File
|
1996-03-25
|
754b
|
22 lines
/* this is a sample of a INTERPRET keyphrase "rexx code block",
as contained in a seperate file (rather then in the INTERPRET_FILE
Note we drop the filespec vars (if they have been defined, error results */
tmp.1=filespec('drive',file);
tmp.2=filespec('path',file);
tmp.8=0;
tmp.3=tmp.2||"*.*" ;
tmp.3=translate(tmp.3,'\','/');
drop tmp2;
tmp.4=sysfiletree(tmp.3,tmp2,'F');
do tmp4=1 to tmp2.0;
parse var tmp2.tmp4 putme putme tmp.10 . ;
tmp.8 = tmp.8 +tmp.10 ;
end ;
drop tmp3 ;
tmp.5=sysfiletree(tmp.3,tmp3,'D') ;
putme='<p> Current directory: '||tmp.2 ;
putme=putme|| ' <br> # files '|| tmp2.0 ;
putme=putme||' <br> bytes in files= '|| tmp.8 ;
interpret.results=putme||' <br> # subdirectories = ' ||tmp3.0|| '<p> ' ;